home *** CD-ROM | disk | FTP | other *** search
/ Ian & Stuart's Australian Mac: Not for Sale / Another.not.for.sale (Australia).iso / fade into you / being there / Issues & Ideas / Anonymous remailers / Remailers / dosbat Folder / HOPSEND.BAT < prev   
DOS Batch File  |  1993-07-14  |  3KB  |  128 lines
  1. @echo off
  2. rem hopsend.bat - allows routing a message through various remailers
  3. rem Karl Barrus - elee9sf@menudo.uh.edu
  4. rem last update 7/14/93
  5.  
  6. rem if no parameters, print help file
  7. if '%1'=='' goto help
  8.  
  9. rem get file name
  10. shift
  11. set filename=%0
  12. if not exist %filename% goto errnofile
  13.  
  14. rem set up encrypted pgp header
  15. echo :: > zzztemp1.txt
  16. echo Encrypted: PGP >> zzztemp1.txt
  17. echo. >> zzztemp1.txt
  18.  
  19. rem create null message
  20. echo. > zzztemp3.txt
  21.  
  22. rem get email address
  23. shift
  24. set to=%0
  25. if '%to%'=='' goto errmail
  26.  
  27. rem start building encryption headers...
  28. set firsttime=yes
  29. :repeat
  30. shift
  31. if '%0'=='' goto finish
  32.  
  33. if '%0'=='1'  set rto=nowhere@bsu-cs.bsu.edu
  34. if '%0'=='2'  set rto=hh@cicada.berkeley.edu
  35. if '%0'=='3'  set rto=hh@pmantis.berkeley.edu
  36. if '%0'=='4'  set rto=hh@soda.berkeley.edu
  37. if '%0'=='5'  set rto=00x@uclink.berkeley.edu
  38. if '%0'=='6'  set rto=hal@alumni.caltech.edu
  39. if '%0'=='7'  set rto=ebrandt@jarthur.claremont.edu
  40. if '%0'=='8'  set rto=phantom@mead.u.washington.edu
  41. if '%0'=='9'  set rto=remailer@rebma.mn.org
  42. if '%0'=='10' set rto=elee7h5@rosebud.ee.uh.edu
  43. if '%0'=='11' set rto=hfinney@shell.portal.com
  44. if '%0'=='12' set rto=remail@tamaix.tamu.edu
  45. if '%0'=='13' set rto=remail@tamsun.tamu.edu
  46. if '%0'=='14' set rto=remailer@utter.dis.org
  47. if '%0'=='15' set rto=remail@entropy.linet.org
  48. if '%0'=='16' set rto=remail@extropia.wimsey.com
  49.  
  50. rem set up remailing request header
  51. echo :: > zzztemp2.txt
  52. echo Request-Remailing-To: %to% >> zzztemp2.txt
  53. echo. >> zzztemp2.txt
  54.  
  55. if '%firsttime%'=='no' goto skipthis
  56. set firsttime=no
  57. copy zzztemp2.txt + %filename% zzztemp4.txt > nul
  58. del zzztemp2.txt
  59. rename zzztemp4.txt zzztemp2.txt
  60.  
  61. :skipthis
  62. rem append previous message
  63. copy zzztemp2.txt + zzztemp3.txt zzztemp4.txt > nul
  64. del zzztemp2.txt
  65. rename zzztemp4.txt zzztemp2.txt
  66.  
  67. if '%0'=='1' goto none
  68. if '%0'=='2' goto none
  69. if '%0'=='3' goto none
  70. if '%0'=='4' goto none
  71. if '%0'=='5' goto none
  72.  
  73. pgp -ea zzztemp2.txt %rto% > nul
  74. copy zzztemp1.txt + zzztemp2.asc zzztemp3.txt > nul
  75. goto next
  76.  
  77. :none
  78. copy zzztemp2.txt zzztemp3.txt > nul
  79.  
  80. :next
  81. set to=%rto%
  82.  
  83. goto repeat
  84.  
  85. :finish
  86. del %filename%
  87. rename zzztemp3.txt %filename%
  88. echo Remember to mail %filename% to %to% 
  89.  
  90. goto done
  91.  
  92. :help
  93. echo Usage: hopmail filename address remailer# [remailer#]...
  94. echo Address: destination address
  95. echo.
  96. echo Remailers:
  97. echo  1: nowhere@bsu-cs.bsu.edu
  98. echo  2: hh@cicada.berkeley.edu
  99. echo  3: hh@pmantis.berkeley.edu
  100. echo  4: hh@soda.berkeley.edu
  101. echo  5: 00x@uclink.berkeley.edu
  102. echo  6: hal@alumni.caltech.edu
  103. echo  7: ebrandt@jarthur.claremont.edu
  104. echo  8: phantom@mead.u.washington.edu
  105. echo  9: remailer@rebma.mn.org
  106. echo 10: elee7h5@rosebud.ee.uh.edu
  107. echo 11: hfinney@shell.portal.com
  108. echo 12: remail@tamaix.tamu.edu
  109. echo 13: remail@tamsun.tamu.edu
  110. echo 14: remailer@utter.dis.org
  111. echo 15: remail@entropy.linet.org
  112. echo 16: remail@extropia.wimsey.com
  113. goto end
  114.  
  115. :errmail
  116. echo Error: no destination specified
  117. goto done
  118.  
  119. :errnofile
  120. echo Error: file %filename% does not exist
  121. goto end
  122.  
  123. :done
  124. del zzz*.*
  125.  
  126. :end
  127.  
  128.